home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / bargraf.arc / GRAFPROC.PRG < prev   
Text File  |  1987-03-30  |  2KB  |  99 lines
  1. * Program..: Grafproc.PRG
  2. * Author...: Jon Wind
  3. * Date.....: March 30, 1987
  4. * Version..: dBASE III PLUS
  5. * Note(s)..: This is the procedure file for Grafem.PRG.
  6. *
  7.  
  8.  
  9. * dBASE III PLUS procedures:
  10.  
  11.  
  12. PROC graframe
  13. PARA f_row,framec,t_row,title,titlec
  14. SET COLO TO &titlec
  15. @t_row,(80-LEN(title))/2 SAY title
  16. SET COLO TO &framec
  17. @f_row-10,10 TO f_row,10
  18. @f_row,10 SAY CHR(212)
  19. @f_row,11 TO f_row,69 DOUB
  20. PUBL row0
  21. row0=f_row-1
  22. cnt=0
  23. DO WHIL cnt<101
  24.   @f_row,5 SAY STR(cnt,3)+IIF(cnt>0," _","")
  25.   @f_row-1,9 SAY IIF(cnt<100,"_","")
  26.   cnt=cnt+20
  27.   f_row=f_row-2
  28. ENDD
  29. RETU
  30.  
  31.  
  32. PROC bargraf
  33. PARA var,barwidth,grafrow,grafcol,graflbl,bar_color
  34. row=row0
  35. grafval=2.5
  36. SET COLO TO &bar_color
  37. @grafrow,grafcol+(barwidth/2)-(LEN(graflbl)/2) SAY graflbl
  38. DO WHIL grafval<101 .AND. grafval<=var
  39.   IF var>=grafval+5
  40.     @row,grafcol SAY REPL(CHR(219),barwidth)
  41.   ELSE
  42.     IF var>=grafval
  43.       @row,grafcol SAY REPL(CHR(220),barwidth)
  44.     ENDI
  45.   ENDI
  46.   grafval=grafval+10
  47.   row=row-1
  48. ENDD
  49. SET COLO TO
  50. RETU
  51.  
  52.  
  53. * dBASE III procedures:
  54.  
  55.  
  56. PROC grafram2
  57. PARA f_row,framec,t_row,title,titlec
  58. SET COLO TO &titlec
  59. @t_row,(80-LEN(title))/2 SAY title
  60. SET COLO TO &framec
  61. @f_row,10 SAY CHR(212)+SUBS(dbar,1,58)
  62. PUBL row0
  63. row0=f_row-1
  64. cnt=0
  65. DO WHIL cnt<101
  66.   @f_row,5 SAY STR(cnt,3)
  67.   IF cnt>0
  68.     ??" _"+CHR(179)
  69.   ENDI
  70.   IF cnt<100
  71.     @f_row-1,9 SAY "_"+CHR(179)
  72.   ENDI
  73.   cnt=cnt+20
  74.   f_row=f_row-2
  75. ENDD
  76. RETU
  77.  
  78.  
  79. PROC bargraf2
  80. PARA var,barwidth,grafrow,grafcol,graflbl,bar_color
  81. row=row0
  82. grafval=2.5
  83. SET COLO TO &bar_color
  84. @grafrow,grafcol+(barwidth/2)-(LEN(graflbl)/2) SAY graflbl
  85. DO WHIL grafval<101 .AND. grafval<=var
  86.   IF var>=grafval+5
  87.     @row,grafcol SAY SUBS(full,1,barwidth)
  88.   ELSE
  89.     IF var>=grafval
  90.       @row,grafcol SAY SUBS(half,1,barwidth)
  91.     ENDI
  92.   ENDI
  93.   grafval=grafval+10
  94.   row=row-1
  95. ENDD
  96. SET COLO TO 7
  97. RETU
  98.  
  99.